function Graph_HistDec_Obs_Shock(DateVec,HistDecMat,ObsTag, ...
                                 ShockGroup,ShockTag,ShockColor,FileName)

%% Preliminary Assignment
LineStyleList       =   {'b:','c--','r-'};
ColorList           =   {'b','c','r'};
%% 1X3 Plot
Num_V               =   size(HistDecMat,1);
Num_S               =   length(ShockGroup);
Num_T               =   size(HistDecMat,3);
N_col               =   4;
N_row               =   2;
fig_size            =   [N_col*250,N_row*250];
Pos                 =   [50, 50, fig_size];  
subplot_gap         =   [0.1,0.03];
subplot_VMargin     =   [0.1,0.08];
subplot_HMargin     =   [0.04,0.02]; 

TempSubPlotFun      =   @(id)subtightplot(N_row,N_col,id,...
                                          subplot_gap,...
                                          subplot_VMargin,...
                                          subplot_HMargin);
fig         =   figure('Name','Decomposition of the Observation History','Position',Pos);

for vv=1:Num_V
    ax          =   TempSubPlotFun(vv);
    Title       =   ObsTag{vv};
    TempHisDec  =   zeros(Num_S,Num_T);
    for ss=1:Num_S
        if length(ShockGroup{ss})==1
            TempHisDec(ss,:)    =   squeeze(HistDecMat(vv,ShockGroup{ss},:));
        else
            TempHisDec(ss,:)    =   sum(squeeze(HistDecMat(vv,ShockGroup{ss},:)));
        end 
        
    end
    ColorStyle  =   ShockColor;
    [PH,ax]     =   HisDecSoloPlot(DateVec,TempHisDec,ColorStyle,1,'Datetime',ax);
    title(ax,Title,'fontsize',14,'interpreter','latex');
    recessionplot;
      
    if vv==Num_V
        legend(PH,ShockTag,...
                'fontsize',10,'interpreter','latex','Box','off','Color','none',...
                'location','southwest','orientation','vertical');
    end
    if vv>N_col
        xlabel(ax,'Year','fontsize',14,'interpreter','latex');
    end
end

fig.PaperUnits  =   'points';
fig.PaperSize   =   fig_size;
if nargin>4
    print(fig,[FileName,'HistDec'],'-dpdf','-bestfit');
end
